home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed4.d64 / tic tac arithmet (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  324 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 310 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: TIC TAC ARITH
  33. 330 REM WRITTEN BY JO ANN COMITO
  34. 340 REM REVISED BY JENNIFER BRASCH"
  35. 350 [143] UPDATED BY BILL CUMBERLAND 90
  36. 400 [153]"LOAD":[151]UT,UL%:[151]UY,13:[151]UX,13:[151]646,0
  37. 405 [153]"            RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WAIT
  38. 415 PRINT" [217]OU AND YOUR PARTNER CAN DO ARITHMETIC"
  39. 420 PRINT" AND PLAY TIC-TAC-TOE AT THE SAME TIME."
  40. 425 PRINT" [196]ECIDE WHO IS [216] AND WHO IS [207]."
  41. 430 PRINT" [217]OU CAN WIN A BOX BY ANSWERING THE"
  42. 435 PRINT" QUESTION IN THE BOX. [201]F YOU ANSWER"
  43. 440 PRINT" INCORRECTLY, YOUR PARTNER CAN TRY TO"
  44. 445 PRINT" WIN THAT BOX."
  45. 447 GOSUB 820:POKE646,0
  46. 450 PRINT"[147] [212]HE QUESTIONS IN THE BOXES MAY INCLUDE"
  47. 455 PRINT" ADDITION, SUBTRACTION, MULTIPLICATION"
  48. 458 PRINT" AND DIVISION."
  49. 460 PRINT" [212]HE QUESTIONS BEGIN AT A SIMPLE LEVEL,"
  50. 465 PRINT" BUT CAN BE MADE MORE DIFFICULT."
  51. 468 GOSUB820:RETURN
  52. 699 :
  53. 700 REM <YES>
  54. 705 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  55. 710 POKE54296,15:POKE54277,42:POKE54278,250
  56. 715 POKE54276,23:POKE54273,23:POKE54272,191
  57. 720 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  58. 725 POKE54296,0:RETURN
  59. 730 REM <NO>
  60. 735 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  61. 740 POKE54296,15:POKE54277,18:POKE54278,242
  62. 745 POKE54276,33:POKE54273,4:POKE54272,48
  63. 750 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  64. 755 POKE54296,0:RETURN
  65. 760 REM <BLIP>
  66. 765 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  67. 770 POKE54296,7:POKE54277,42:POKE54278,250
  68. 775 POKE54276,23:POKE54273,23:POKE54272,191
  69. 780 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  70. 785 POKE54296,0:RETURN
  71. 790 FORTM=1TO500:NEXT:RETURN
  72. 791 FORTM=1TO1000:NEXT:RETURN
  73. 792 FORTM=1TO2000:NEXT:RETURN
  74. 793 FORTM=1TO3000:NEXT:RETURN
  75. 795 FORTM=1TO5000:NEXT:RETURN
  76. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,5
  77. 801 PRINT"     A TPUG EDUCATIONAL PROGRAM
  78. 802 [153]"          FOR C64 COMPUTERS
  79. 803 PRINT"             GRADES 3-6
  80. 804 [153]"                                        WAIT";
  81. 805 [153]"                                        WAIT";
  82. 806 [153]"                                        WAIT";
  83. 807 [153]"          TIC TAC ARITHMETIC            WAIT";
  84. 808 [153]"                                        WAIT";
  85. 809 [153]"                                        WAIT";
  86. 810 [153]"                                        WAIT":[141]792:[141]760
  87. 811 [153]"          INSTRUCTIONS?  Y/N
  88. 812 GETUI$:IFUI$<>"Y"ANDUI$<>"N"THEN 812
  89. 813 IFUI$="Y"THEN GOSUB400
  90. 814 PRINT"[147] AND AWAY WE GO..............":GOSUB792:GOSUB700
  91. 815 GOTO1000
  92. 820 GOSUB791:GOSUB760
  93. 823 POKEUN,0:PRINTLEFT$(UD$,24);" [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146]"
  94. 825 GETUI$:IFUI$<>" "THEN825
  95. 830 RETURN
  96. 835 GOSUB791:GOSUB760
  97. 837 POKEUN,0:PRINTLEFT$(UD$,24);" PRESS SPACE BAR TO CONTINUE [146]"
  98. 840 GETUI$:IFUI$<>" "THEN840
  99. 845 RETURN
  100. 850 UP=UP+1:PRINT"[147]"
  101. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ANSWER, THEN PRESS RETURN[146]"
  102. 865 UH=0:PRINT"":RETURN
  103. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  104. 880 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  105. 885 PRINT" --------------------------------------"
  106. 890 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  107. 895 UH=0:PRINT"":RETURN
  108. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  109. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  110. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  111. 905 UD$="":UP$="                                      "
  112. 909 RETURN
  113. 910 GOSUB900:PRINT"[147] "
  114. 920 GOTO 800
  115. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
  116. 1002 UP=0
  117. 1180 UT$=" [212]IC [212]AC [193]RITH":UG$="GAME"
  118. 1200 REM
  119. 1220 IF DD$=""THEN DIM X$(6),O$(6),B$(7),OP$(4,5),AN(9,2)
  120. 1230 F=0
  121. 1240 DD$=""
  122. 1250 RR$=""
  123. 1260 B$(1)="[176][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  124. 1270 B$(2)="[221]1           [221]2           [221]3           [221]"
  125. 1280 B$(3)="[221]            [221]            [221]            [221]"
  126. 1290 B$(4)="[171][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  127. 1300 B$(5)="[221]4           [221]5           [221]6           [221]"
  128. 1310 B$(6)="[221]7           [221]8           [221]9           [221]"
  129. 1320 B$(7)="[173][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  130. 1330 X$(1)="   [205][223][146]  [169][206][146]  "
  131. 1340 X$(2)="   [223][205][223][169][206][146][169]  "
  132. 1350 X$(3)="    [223][205][206][146][169]   "
  133. 1360 X$(4)="    [169][206][205][223][146]   "
  134. 1370 X$(5)="   [169][206][146][169][223][205][223][146]  "
  135. 1380 X$(6)="   [206][146][169]  [223][205][146] "
  136. 1390 O$(1)="   [169]  [223][146]    "
  137. 1400 O$(2)="  [169] [146]   [223][146]   "
  138. 1410 O$(3)="   [146]     [146]   "
  139. 1420 O$(4)="   [146]     [146]   "
  140. 1430 O$(5)="  [223] [146]   [146][169]   "
  141. 1440 O$(6)="   [223]  [146][169]    "
  142. 1520 PRINT"[147]";:POKE UT,UL%:GOSUB 850
  143. 1570 PRINT" [212]HE NUMBERS USED CAN RANGE FROM"
  144. 1580 PRINT" -99 TO 100.  [212]HE NUMBERS TO BEGIN WITH"
  145. 1590 PRINT" WILL RANGE BETWEEN 0 AND 10."
  146. 1600 PRINT" [196]O YOU WANT TO DELETE ANY OF THE FOUR"
  147. 1610 PRINT" OPERATIONS OR CHANGE THE RANGE?":GOSUB760
  148. 1620 PRINT"          [217] OR [206]  ";
  149. 1630 UL=1:US$="YN":GOSUB 35:A$=UR$
  150. 1660 IF A$="N"ANDF=5THEN1740
  151. 1670 RESTORE
  152. 1680 FORI=1TO4:FORJ=1TO5:READOP$(I,J):NEXTJ,I
  153. 1690 DATA A + B,"  0"," 10","  0"," 10",A - B,"  0"," 10","  0"," 10"
  154. 1700 DATA"A [214] B","  0"," 10","  0"," 10","A / B","  0","100","  1"," 10"
  155. 1710 IFA$="N"THEN1740
  156. 1720 GOSUB2160    @CHANGE RANGE:EF=0:GOSUB2450      @CHECK RANGE
  157. 1730 IFEF=1THENA$="Y":RESTORE:FORI=1TO824:READJ:NEXTI:GOTO1680
  158. 1740 GOSUB2570  @PRINT BOXES
  159. 1750 FORI=1TO9:AN(I,2)=0:NEXTI
  160. 1760 GOSUB2640   @GENERATE PROBS
  161. 1770 N=N+1:IFN/2<>INT(N/2)THENPL$="X"
  162. 1780 IFN/2=INT(N/2)THENPL$="O"
  163. 1790 DD=22:RR=1:GOSUB2110
  164. 1800 UH=0:GOSUB860:PRINTLEFT$(UD$,23);
  165. 1801 GOSUB760:PRINT"  PLAYER "PL$" [146] WHICH BOX DO YOU CHOOSE?       [157][157][157][157][157][157]";
  166. 1810 UL=1:US$="123456789":GOSUB 35:BO$=UR$
  167. 1820 BO=VAL(BO$)
  168. 1830 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"                         "
  169. 1840 IFBO>9THENPRINT"[145]";:GOTO1800
  170. 1850 IFAN(BO,2)<>0THENPRINT"[145]";:GOTO1800
  171. 1860 F=0
  172. 1870 GOSUB2780 @GOTO BOX-GET ANS
  173. 1880 FL=0:F=F+1
  174. 1890 IFAN(BO,1)=ANTHENGOSUB3360:GOSUB2930
  175. 1900 IFN=9ANDFL=1THEN2030
  176. 1910 IFFL=1THEN1770
  177. 1920 IFFL=2THEN2050
  178. 1930 DD=23:RR=17:GOSUB2110
  179. 1940 GOSUB730:PRINT"[150]WRONG![146][155][145]":GOSUB3310:FORI=1TO250:NEXTI
  180. 1950 IFF=2THEN2000
  181. 1960 IFPL$="X"THENPL$="O":GOTO1980
  182. 1970 IFPL$="O"THENPL$="X"
  183. 1980 DD=22:RR=1:GOSUB2110
  184. 1990 PRINT" PLAYER "PL$"[146] TRY BOX                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"BO;
  185. 2000 DD=23:RR=17:GOSUB2110:PRINT"                  ";
  186. 2010 IFF=2THENGOSUB2780:GOTO1770
  187. 2020 GOTO1870
  188. 2030 FORI=1TO900:NEXTI
  189. 2040 PRINT"[147]IT IS A TIE!"
  190. 2050 FORI=1TO900:NEXTI
  191. 2060 UG$="GAME":GOSUB 850:PRINT"      DO YOU WANT TO PLAY AGAIN? "
  192. 2065 PRINT"            Y OR N  ";
  193. 2070 UL=1:US$="YN":GOSUB 35:A$=UR$
  194. 2075 IF A$="Y"THENN=0:F=5:POKEUT,UU%:RESTORE:GOTO1600
  195. 2085 PRINT"[147] RETURNING TO THE MAIN MENU
  196. 2090 [147]"MENU",8
  197. 2094 [138]
  198. 2096 [128]
  199. 2110 PP$[178]""[170][200](DD$,DD)[170][200](RR$,RR)
  200. 2120 [153]PP$;:[142]
  201. 2130 [141] 835
  202. 2150 [142]
  203. 2160 UG$[178]"CHANGES":UP[178]UP[171]1:[141] 850
  204. 2165 [153]" BELOW IS A LIST OF THE OPERATIONS AND
  205. 2170 PRINT" THE CURRENT RANGES OF THE NUMBERS."
  206. 2180 PRINT" YOU MAY TYPE IN THE NEW RANGE TO THE "
  207. 2190 PRINT" RIGHT OF EACH LINE.  IF YOU WISH TO "
  208. 2200 PRINT" LEAVE A LINE UNCHANGED, ENTER THE SAME"
  209. 2210 PRINT" RANGES.  YOU MAY ELIMINATE AN OP-"
  210. 2220 PRINT" ERATION BY SETTING THE UPPER AND LOWER"
  211. 2230 PRINT" LIMITS TO 0."
  212. 2240 PRINT"      [146][221]CURRENT[146][221]CURRENT[146][221]  NEW  [146][221]  NEW  [146][221]"
  213. 2250 PRINT" PROB [146][221]A-RANGE[146][221]B-RANGE[146][221]A-RANGE[146][221]B-RANGE[146][221]"
  214. 2260 PRINT" TYPE [146][221] LO[221] HI[146][221] LO[221] HI[146][221] LO[221] HI[146][221] LO[221] HI[146][221]"
  215. 2270 PRINT" [163][163][163][163][163][221]";:FORI=1TO8:PRINT"[163][163][163][221]";:NEXTI:PRINT
  216. 2280 FORI=1TO4:PRINT" ";
  217. 2290 FORJ=1TO5:PRINTOP$(I,J);"[221]";:NEXTJ
  218. 2300 FORJ=1TO4:PRINT"   [221]";:NEXTJ:PRINT
  219. 2310 PRINT"      [221]";:FORJ=1TO8:PRINT"   [221]";:NEXTJ:PRINT
  220. 2320 NEXTI
  221. 2330 N0=0:FORDD=15TO21STEP2
  222. 2340 FORRR=22TO34STEP4
  223. 2350 T1$=""
  224. 2360 GOSUB2110
  225. 2370 PRINT"[221]";
  226. 2380 UL=3:US$="-0123456789":GOSUB35:T$=UR$:IFVAL(UR$)=0THENN0=N0+1
  227. 2400 OP$((DD-13)/2,(RR-18)/4+1)=T$:NEXTRR:PRINT"[157][157][221]":NEXTDD
  228. 2450 IFOP$(4,4)="0"THENOP$(4,4)="1"
  229. 2460 FORI=1TO4:FORJ=2TO4STEP2
  230. 2470 V1=VAL(OP$(I,J)):V2=VAL(OP$(I,J+1))
  231. 2475 IFV1>100ORV2>100THENPRINT"[150]ENTRIES MUST BE UNDER 101[155]":GOSUB835:GOTO1670
  232. 2480 IFV1>V2THENSS$=OP$(I,J+1):OP$(I,J+1)=OP$(I,J):OP$(I,J)=SS$
  233. 2490 IFN0>14THENPRINT"[150]POOR ENTRIES[155]":GOSUB835:GOTO1670
  234. 2500 NEXTJ,I:RETURN
  235. 2510 PRINT:PRINT"NUMBERS MUST BE BETWEEN -99 AND 100":GOSUB2130:RETURN
  236. 2520 REM**PRINT OUT O**
  237. 2530 DD=DO:RR=RO:GOSUB2110
  238. 2540 FORI=1TO6:PRINTO$(I):DD=DD+1:GOSUB2110:NEXTI:GOTO2566
  239. 2550 DD=DX:RR=RX:GOSUB2110
  240. 2560 FORI=1TO6:PRINTX$(I):DD=DD+1:GOSUB2110:NEXTI
  241. 2566 RETURN
  242. 2570 PRINT"[147]";:POKE UT,UU%:PRINTB$(1);B$(2);
  243. 2580 FORI=1TO5:PRINTB$(3);:NEXT
  244. 2590 PRINTB$(4);B$(5);
  245. 2600 FORI=1TO5:PRINTB$(3);:NEXT
  246. 2610 PRINTB$(4);B$(6);
  247. 2620 FORI=1TO5:PRINTB$(3);:NEXT
  248. 2630 PRINTB$(7);:RETURN
  249. 2640 FORI=1TO9
  250. 2650 R%=RND(1)*4+1
  251. 2660 ZA=VAL(OP$(R%,2)):ZA=VAL(OP$(R%,3)):LB=VAL(OP$(R%,4)):ZB=VAL(OP$(R%,5))
  252. 2670 IFLA=ZAORLB=ZBTHEN2650
  253. 2680 RA%=RND(1)*(ZA-LA)+LA:RB%=RND(1)*(ZB-LB)+LB+.5
  254. 2690 IFR%=4THEN2730
  255. 2700 IFR%=1THENAN(I,1)=RA%+RB%
  256. 2710 IFR%=2THENAN(I,1)=RA%-RB%
  257. 2720 IFR%=3THENAN(I,1)=RA%*RB%
  258. 2730 IFR%=4THENAN(I,1)=INT(RND(1)*(SQR(ZA)-LA)+LA):RA%=AN(I,1)*RB%
  259. 2740 DD=INT((I-.1)/3)*7+2
  260. 2750 RR=((I+2)-((INT((I+2)/3))*3))*13+2
  261. 2760 GOSUB2110
  262. 2770 PRINTRA%;MID$(OP$(R%,1),3,1);RB%;"=":NEXTI:RETURN
  263. 2780 DD=INT((BO-.1)/3)*7+6
  264. 2790 RR=((BO+2)-((INT((BO+2)/3))*3))*13+2
  265. 2800 GOSUB2110
  266. 2810 IFF=2THENPRINT"          ":RETURN
  267. 2820 PRINT"ANS=      [157][157][157][157][157][157]";
  268. 2830 T1$=""
  269. 2840 PRINT"?";
  270. 2850 UL=5:US$="-0123456789":GOSUB 35:T1$=UR$
  271. 2920 AN=VAL(T1$):RETURN
  272. 2930 DD=INT((BO-.1)/3)*7+1
  273. 2940 RR=((BO+2)-((INT((BO+2)/3))*3))*13+2
  274. 2950 IFPL$="X"THENAN(BO,2)=1:GOTO3020
  275. 2960 AN(BO,2)=-1
  276. 2970 GOSUB2110
  277. 2980 FORI=1TO6:PRINTO$(I):DD=DD+1:GOSUB2110:NEXTI
  278. 2990 GOSUB3070     @CHECK"[215]"WIN
  279. 3000 IFFL=2THENRETURN
  280. 3010 FL=1:RETURN
  281. 3020 GOSUB2110
  282. 3030 FORI=1TO6:PRINTX$(I):DD=DD+1:GOSUB2110:NEXTI
  283. 3040 GOSUB3070     @CHECK"[214]"WIN
  284. 3050 IFFL=2THENRETURN
  285. 3060 FL=1:RETURN
  286. 3070 IFAN(1,2)=AN(5,2)ANDAN(5,2)=AN(9,2)ANDAN(1,2)<>0THEN3160
  287. 3080 IFAN(3,2)=AN(5,2)ANDAN(5,2)=AN(7,2)ANDAN(5,2)<>0THEN3160
  288. 3090 IFAN(1,2)=AN(4,2)ANDAN(4,2)=AN(7,2)ANDAN(1,2)<>0THEN3160
  289. 3100 IFAN(2,2)=AN(5,2)ANDAN(5,2)=AN(8,2)ANDAN(2,2)<>0THEN3160
  290. 3110 IFAN(3,2)=AN(6,2)ANDAN(6,2)=AN(9,2)ANDAN(3,2)<>0THEN3160
  291. 3120 IFAN(1,2)=AN(2,2)ANDAN(2,2)=AN(3,2)ANDAN(1,2)<>0THEN3160
  292. 3130 IFAN(4,2)=AN(5,2)ANDAN(5,2)=AN(6,2)ANDAN(4,2)<>0THEN3160
  293. 3140 IFAN(7,2)=AN(8,2)ANDAN(8,2)=AN(9,2)ANDAN(7,2)<>0THEN3160
  294. 3150 RETURN
  295. 3160 FORI=1TO250:NEXTI
  296. 3170 FL=2
  297. 3180 PRINT"[147]"
  298. 3190 DD=9:RR=17:GOSUB2110
  299. 3200 IFPL$="X"THEN3220
  300. 3210 FORI=1TO6:PRINTO$(I):DD=DD+1:GOSUB2110:NEXT:PRINT"[158]YOU WIN![155]"
  301. 3215 GOSUB700:GOSUB700:GOSUB3230:RETURN
  302. 3220 FORI=1TO6:PRINTX$(I):DD=DD+1:GOSUB2110:NEXT:PRINT"[158]YOU WIN![155]"
  303. 3225 GOSUB700:GOSUB791:GOSUB760:GOSUB760:RETURN
  304. 3230 REM **   P=59464:POKE59467,16
  305. 3240 POKE59466,15
  306. 3250 FORJ=1TO5
  307. 3260 POKE59409,228:FORK=1TO50:NEXTK:POKE59409,60
  308. 3270 FORI=20TO130:POKEP,I:NEXTI
  309. 3280 NEXTJ
  310. 3290 POKEP,0:POKE59467,0:POKE59466,0
  311. 3300 RETURN
  312. 3310 P=59464:POKE59467,16
  313. 3320 POKE59466,15
  314. 3330 FORI=1TO35:POKEP,255:POKEP,200:POKEP,150:NEXTI
  315. 3340 POKEP,0:POKE59467,0:POKE59466,0
  316. 3350 RETURN
  317. 3360 P=59464:POKE59467,16
  318. 3370 POKE59466,15
  319. 3380 POKEP,50:FORI=1TO50:NEXTI
  320. 3390 POKEP,0:POKE59467,0:POKE59466,0
  321. 3400 RETURN    
  322. 4999 :
  323. 5000 REM WHC 90:11:29
  324.